class: title-slide, middle, right <br> <br> .line_space_15[ ## .text_80[Taller <br> de Reforzamiento] ] <br> .line_space_11[ <br> .text_70[[Código en:
](https://github.com/AGSCL/Taller_UDP)] .text_110[Clase 1. Proyectos en R] ] <!--- - Trabajar en proyectos en R (convenciones y buenas prácticas para guardar y abrir datos, códigos, referencias, salidas de código, figuras, etc.) - Visualización de datos mediante ggplot (lógica de capas, propiedades de los gráficos, paquetes estadísticos complementarios ) La aplicación de estos contenidos se hará mediante ejercicios de estadística descriptiva y modelos de regresión logística en R http://observatorio.ministeriodesarrollosocial.gob.cl/encuesta-social-covid19-cuarta-ronda ---> .bg-text[ 16 de noviembre, 2022 .text_100[Andrés González Santa Cruz] .text_65[gonzalez.santacruz.andres@gmail.com] [
](https://github.com/AGSCL) [
](https://orcid.org/0000-0002-5166-9121) ] <br> <img src="data:image/png;base64,#./_style/cropped-logotipo_fsch.png" width="15%" /> ??? *#_#_#_#_#_#_#_#_#_#_ **NOTA** *#_#_#_#_#_#_#_#_#_#_ - Mi nombre es andrés gonzález. Soy asistente de investigación de un proyecto milenio de políticas sobre drogas y trabajo para Alvaro Castillo en la Universidad Mayor en el Centro de Investigación en Sociedad y Salud. También estudio un doctorado en Salud pública en la Universidad de Chile - Ustedes: Nombre, nivel de manejo en R, experiencias previas con este software , manejo informático, expectativas - Es de carácter introductorio a R y Rstudio - No es un curso de estadística - No soy un experto en informática ni en estadística - Es un taller enfocado a la aplicación de herramientas básicas de gestión de datos en R y Rstudio - Brinda herramientas, guía y orientación para profundizar de manera individual - **Deben tener experiencia previa con R. Aquí no instalaremos R desde 0** - Otra cosa: si usted no puede asistir algún día, pero decide asistir el día siguiente y me solicita ayuda por algo visto el día anterior, tendrá última prioridad respecto a quienes tienen preguntas referentes al día de hoy, y de quienes asistieron el día anterior pero igual tienen dudas de ese día. --- layout: true class: animated, fadeIn --- ## Resumen .pull_left[ .details-code[ ```r library(readr) encuesta_wide <- readr::read_delim("https://docs.google.com/spreadsheets/d/1ROw6KWDljm8vqpztgPLq_kEFW9PfsiYzzvgaiCGRYcA/export?format=tsv&id=1ROw6KWDljm8vqpztgPLq_kEFW9PfsiYzzvgaiCGRYcA&gid=2018030198", delim = "\t", escape_double = FALSE, trim_ws = TRUE) %>% #cuento cuantas veces aparece dplyr::group_by(question_id) %>% #genero una columna ID dplyr::mutate(ID=dplyr::row_number()) %>% #guardamos la base original por si necesitamos despues revisarla assign("encuesta",.,envir = .GlobalEnv) %>% #dejo los datos en un formato ancho, en que cada ingreso de formulario (ID) es una fila, y conservamos la fila de preguntas. tidyr::pivot_wider(id_cols=c(ID), names_from= question_id, values_from= response) %>% #en caso que alguien haya enviado más de una vez, me quedo con el último dplyr::ungroup() %>% dplyr::group_by(a) %>% dplyr::slice_tail() %>% dplyr::ungroup() #Etiquetas for (i in 1:length(unique(encuesta$PREGUNTAS))) { x<-i+1 attributes(encuesta_wide)$variable.labels[x]<- unique(encuesta$PREGUNTAS)[i] } encuesta_wide %>% dplyr::select(a) %>% dplyr::ungroup() %>% knitr::kable("markdown", caption="a.¿Cuál es su nombre completo?") ``` Table: a.¿Cuál es su nombre completo? |a | |:-------------------------------| |Felipe Peñailillo | |josefa guerra | |Juan Cristobal Solis Llancapani | |Kinga Trinidad Halmai Zapata | |Matias Ignacio Zúñiga Cornejo | |Pamela Salas Venegas | |Sebastián Salinas Vargas | ] .details-code[ ```r encuesta_wide %>% ggplot(aes(x=as.numeric(b)))+ geom_histogram(bins=50)+ ggtitle("Distribución años de experiencia usando R")+ xlab("Años de experiencia en R")+ylab("Recuento")+ theme_light(base_size=15) ``` <img src="data:image/png;base64,#Clase-1_files/figure-html/b-1.png" width="300px" style="display: block; margin: auto;" /> ] ] .pull_right[ .details-code[ ```r #[4] "d.¿Cuáles son sus expectativas del taller?" #[5] "e.¿Qué aspecto de los contenidos le interesó más?" if(!require(tidytext)){install.packages("tidytext")} if(!require(wordcloud)){install.packages("wordcloud")} #if(!require(sentiment.ai)){install.packages("sentiment.ai")} if(!require(SentimentAnalysis)){install.packages("SentimentAnalysis")} if(!require(sentimentr)){install.packages("sentimentr")} if(!require(tidytext)){install.packages("tidytext")} if(!require(tm)){install.packages("tm")} corpus <- Corpus(VectorSource(encuesta_wide$d)) # d <- tm_map(corpus, tolower) d <- tm_map(d, stripWhitespace) d <- tm_map(d, removePunctuation) d <- tm_map(d, removeNumbers) d <- tm_map(d, removeWords, stopwords("spanish")) d <- tm_map(d, removeWords, "menos") #d <- tm_map(d, removeWords, c("usted", "pues", "tal", "tan", "así", "dijo", "cómo", "sino", "entonces", "aunque", "don", "doña","hacia","mayor","algún","cada","tambien","ello","mostrara","sólo", "ser","tener","manera","actualmente","mejor","casos","trabajo","parte","contar","")) tdm <- TermDocumentMatrix(d) m <- as.matrix(tdm) #lo vuelve una matriz v <- sort(rowSums(m),decreasing=TRUE) #lo ordena y suma df <- data.frame(word = names(v),freq=v) # lo nombra y le da formato de data.frame #findFreqTerms(tdm) # #https://rpubs.com/brandonkopp/creating-word-clouds-in-r wordcloud::wordcloud(words = df$word, freq = df$freq, min.freq=1, max.words=200, random.order=FALSE, rot.per=0.35, colors=brewer.pal(8, "Greys")) ``` <img src="data:image/png;base64,#Clase-1_files/figure-html/d-1.png" width="350px" style="display: block; margin: auto;" /> ] .details-code[ ```r if(!require(plotly)){install.packages("plotly")} data.frame(e=encuesta_wide$e) %>% dplyr::count(e) %>% dplyr::mutate(valid_percent=scales::percent(n/(sum(n)-sum(n[is.na(e)])),2), valid_percent=ifelse(is.na(n),NA,valid_percent), percent=scales::percent(n/(sum(n)),2))%>% dplyr::mutate(label=paste0(n,"<br>(",valid_percent,")")) %>% dplyr::ungroup()%>% dplyr::filter(!is.na(n)) %>% plot_ly( labels = ~e, values = ~n, type = 'pie',hole = 0.3, textposition = 'outside', textinfo = 'text', text = ~label, automargin = TRUE, sort = FALSE, direction = "clockwise", textfont = list(size = 15), marker = list(colors = c(gray.colors(length(unique(encuesta_wide$e))-1), "#FF5252")))%>% layout(yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T)) %>% layout(showlegend = FALSE, width=350, height=350) %>% layout(showlegend = FALSE) ```
] ] --- ## Índice - Proyectos en R: Configurarlo, guardar conjuntos de datos, lógica de directorio, convenciones y buenas prácticas para guardar y abrir datos, códigos, referencias, salidas de código, figuras, etc. - Visualización de datos mediante ggplot: lógica de capas, propiedades de los gráficos, paquetes estadísticos complementarios - (Extra: De ser posible, Aplicación en estadística descriptiva y modelos de regresión en R) .center[ .black[ **Siempre y cuando sea posible** ] ] ??? *#_#_#_#_#_#_#_#_#_#_ **NOTA** *#_#_#_#_#_#_#_#_#_#_ - Dicho esto, vamos al grano --- class: partial-bg inverse center, middle background-image: linear-gradient(45deg, #ABB0BF, #555555) <!---#DD3333---> ## Partamos --- ## Entorno/Espacio de Trabajo - Oprima `Cntrl + Alt + Shift 0` <div class="yellow">- Editor de texto o códigos (ACTUALIZACION: Editor Visual Markdown)</div> <div class="green">- Lugar de trabajo (objetos creados, funciones, historial, control de versiones) (ACTUALIZACION: Se agregó Tutorial)</div> <div class="red">- Consola para desplegar los comandos y obtener resultados</div> <div class="blue">- Multitabla (gráficos, carpetas, paquetes, visor páginas web) (ACTUALIZACION: Se agregó "Presentation")</div> <img src="data:image/png;base64,#Clase-1_files/figure-html/Fig-ent-1.gif" width="750px" style="display: block; margin: auto;" /> ??? *#_#_#_#_#_#_#_#_#_#_ **NOTA** *#_#_#_#_#_#_#_#_#_#_ Comentarios: - Cntrl+ Shift +H : Paara definir el entorno de trabajo.//Cmd + D: Para cambiar el entorno de trabajo - Editor de sintaxis: Formato block de notas, no ejecuta la sintaxis, comentarios se agregan anteponiendo el signo gato, puede predecir comandos, se ejecuta con cntrl+enterp "run" - Consola y visor resultados: Con un enter se ejcutarán, cambiarán de color una vez ejecutados, los errores arrojarán mensajes, ejecutar operaciones no es lo mismo que guardarlas, se ejecuta cuando hay un signo ">", no hay un mensaje de stop en la esquina superior derecha. - Entorno de trabajo: Memoria interna programa y uso de memoria RAM, entorno de trabajo temporal, objetos almacenados. - Visualizador: permite acceder a CRAN, manuales, etc. --- ## Entorno de Trabajo (2) - Rstudio permite crear un **Proyecto** (.Rproj), agrupa a todos los elementos. Puede gestionar los proyectos aquí: <img src="data:image/png;base64,#./_figs/rproj.png" width="250px" style="display: block; margin: auto;" /> - **Directorio:** Ubicación en la que alojaré archivos que formarán parte del entorno de trabajo. Se obtiene mediante `getwd()`. **Configurarlo es muy importante (`setwd([RUTA])`).** - **.rds:** Permite guardar bases de datos de manera individual (muy similar a una hoja excel, un archivo .csv, etc.) - **.Rdata:** Permite guardar múltiples datos, objetos, funciones, etc., lo que equivale a decir que permite guardar el espacio de trabajo en general (`save.image(file =[RUTA])` para guardar todo, `save` para guardar sólo ciertos objetos en un .Rdata, `load([RUTA])` para restaurar). De igual forma, puede hacerlo desde aquí: <img src="data:image/png;base64,#./_figs/guardar_load_rdata.png" width="250px" style="display: block; margin: auto;" /> - **.R:** Una especie de archivos de texto en el que se pueden guardar comandos, anotaciones, etc. Similar a un archivo `.do` o sintaxis. Se recomienda que antes de cerrar una sesión, uno pueda guardar los scripts. **.Rdata no es lo mismo que .R, RECUÉRDELO**. ??? *#_#_#_#_#_#_#_#_#_#_ **NOTA** *#_#_#_#_#_#_#_#_#_#_ PROYECTOS: que agrupa/incorpora los distintos elementos de más abajo. Se recomienda crear uno siempre que se trabaje en un proyecto de investigación nuevo. Además, se recomienda asignarle una carpeta de trabajo individual, que pueda estar respaldada constantemente (ojo: cuidado con Google Drive). - Igual uno puede guardar un solo archivo con `save(data_cons, file = "OUT/data3.RData")` - asdasd --- ## Tips/Recomendaciones - `here::here()` permite saber cuál es la ubicación del directorio en vez de utilizar un directorio fijo. - `rm(list = ls())` si bien puede ser útil, no empieza un proceso de R totalmente limpio, sino que elimina objetos creados en el espacio de trabajo. - `renv()`, en un proyecto permite tener los paquetes de R actualizados hasta cierta fecha, junto con sus dependencias (snapshot) - `rstudioapi::getSourceEditorContext()$path`, permite también tener una ubicación relativa de su proyecto. - `GitHub`, control de versiones, colaboración, etc. <img src="data:image/png;base64,#./_figs/DQugFIWUEAErq0D.jpg" width="350px" style="display: block; margin: auto;" /> - Vea las opciones de su proyecto <img src="data:image/png;base64,#./_figs/DQugFIWUEAErq0D.jpg" width="350px" style="display: block; margin: auto;" /> ??? *#_#_#_#_#_#_#_#_#_#_ **NOTA** *#_#_#_#_#_#_#_#_#_#_ PROYECTOS: - Uno ve cuándo actualiza RENV (sus paquetes etc). Aunque es medio inestable, creo que es una gran opción. - --- ## Tips/Recomendaciones (2) **¿Cómo preguntar algo en R?** .pull_c[ - Stackoverflow, twitter, grupos en R - `dput()` base de datos hipotética o real* - Markdown - Precisión ] ??? *#_#_#_#_#_#_#_#_#_#_ **NOTA** *#_#_#_#_#_#_#_#_#_#_ - Siempre antes busque en español e inglés si su pregunta fue planteada anteriormente (para que no la marquen como duplicada y reciba una mala calificación por flojo) - Real siempre y cuando la desanonimice (`anonymizer`) o no sea la base de datos completa (filtre) - `dput(mtcars)`: permite exportar la estructura de la base de datos para quien le ayude sepa cómo se ordenan sus datos y eventuales dependencias o clases de valores. Si bien puede apoyarse con una imagen de sus datos, es recomendable que use dput() - Maneje algo de lenguaje markdown para hacer más entendible su pregunta - No aburra, sea preciso. - Les dejo un ejemplo mío: https://stackoverflow.com/questions/63290366/mutate-across-multiple-variables-using-a-list-of-third-variables-in-r - Otro en español: https://es.stackoverflow.com/questions/566778/loop-sobre-varios-objetos-con-nombres-parcialmente-com%c3%ban - StackOverflow (https://es.stackoverflow.com/). Por ejemplo, Testeo de modelo lineal en R (https://es.stackoverflow.com/questions/331075/testeo-de-modelo-lineal-en-r) - **Otros tips**: Incluya tags o palabres clave; revise con un compañere antes de publicar, responda adecuadamente al recibir retroalimentación, revise redacción, aunque en el título sea pragmático. Sea agradecido (upvote) --- ## Tips/Recomendaciones (3) **Cursos** - DataCamp. Por ejemplo, Introduction to R (https://www.datacamp.com/courses/free-introduction-to-r) - Si usted quiere tener una prueba gratis de DataCamp, más allá de completar el primer capítulo de un curso (https://www.datacamp.com/blog/how-to-get-10-years-of-free-datacamp-if-youre-a-teacher-or-student) - Statistics With Interactive R Learning(SWIRL): The easiest and the most interactive way to start learning R (https://swirlstats.com/students.html) [Youtube](https://youtu.be/w6L7Ye18yPE). - edX. Por ejemplo, Dat Science: R Basics (https://www.edx.org/es/course/data-science-r-basics), o Introduction to R for Data Science (https://www.edx.org/es/course/introduction-to-r-for-data-science-2). - YouTube. - Estación Lastarria (https://www.estacionlastarria.cl/actividades/rstudio/rstudio-ciencias-sociales.html) - Centro de Microdatos UChile (https://www.microdatos.cl/analisis-datos-r) - Introduction to R (https://www.quantargo.com/courses/course-r-introduction/) **Comunidades** - R-Ladies (https://twitter.com/rladiessantiago) - UseRChile Usuarios de R en Chile (https://userchile.cl/) **Otros** - learnr (Etiqueta “Tutorial”) - CheatSheets. https://rstudio.com/resources/cheatsheets/ - Memes - Twitter, Pachá (@pachamaltese) y Hadley Wickham (@hadleywickham) - Rpubs. Páginas alojadas que permiten ver cómo cada persona obtuvo un determinado producto a partir de un código ??? *#_#_#_#_#_#_#_#_#_#_ **NOTA** *#_#_#_#_#_#_#_#_#_#_ - Por ejemplo, Estadística Útil (https://www.youtube.com/watch?v=rzw1E6HxBFY&list=PLfX5C7cc6LRJ7V6WNgatRQJ6PNMrb4zfM) Riffomonas Project (https://www.youtube.com/c/RiffomonasProject), Population Data BC (https://www.youtube.com/channel/UCavuC5RfLRUv_8XZxYDR0FA), Econometrics, Causality, and Coding with Dr. HK (https://www.youtube.com/c/NickHuntingtonKlein), Sacha Epskamp (https://www.youtube.com/c/SachaEpskamp1), Paul Dickman (https://www.youtube.com/channel/UC0IZswgRCFX3FYagJ_-ODTg), NHSR Community (https://www.youtube.com/c/NHSRCommunity) Online Causal Inference Seminar (https://www.youtube.com/channel/UCiiOj5GSES6uw21kfXnxj3A) **PEDIRLES QUE BAJEN DE GITHUB EL REPOSITORIO DE LAS CLASES** --- ## Ejemplo .details-code[ ```r path<- list.files("./", full.names = TRUE, recursive = TRUE) library(data.tree) library(plyr) a <- lapply(strsplit(path, "/"), function(z) as.data.frame(t(z))) a <- rbind.fill(a) mytree <- data.tree::as.Node(data.frame(pathString = path)) mytree ``` ``` ## levelName ## 1 . ## 2 ¦--_data ## 3 ¦ ¦--1a.R ## 4 ¦ ¦--1b.R ## 5 ¦ ¦--Drogas y jovenes_2007.sav ## 6 ¦ ¦--ejercicio2.zip ## 7 ¦ ¦--Encuesta_Social_COVID-19_IV.zip ## 8 ¦ ¦--personal_curso.xlsx ## 9 ¦ ¦--StreamingHistory0.json ## 10 ¦ °--StreamingHistory1.json ## 11 ¦--_figs ## 12 ¦ ¦--1.PNG ## 13 ¦ ¦--10.PNG ## 14 ¦ ¦--11.PNG ## 15 ¦ ¦--12.PNG ## 16 ¦ ¦--13.PNG ## 17 ¦ ¦--14a.PNG ## 18 ¦ ¦--14b.PNG ## 19 ¦ ¦--15.PNG ## 20 ¦ ¦--16.PNG ## 21 ¦ ¦--17.PNG ## 22 ¦ ¦--1b.png ## 23 ¦ ¦--2.PNG ## 24 ¦ ¦--2b.png ## 25 ¦ ¦--3.PNG ## 26 ¦ ¦--3b.png ## 27 ¦ ¦--4.PNG ## 28 ¦ ¦--4b.png ## 29 ¦ ¦--5.PNG ## 30 ¦ ¦--5b.png ## 31 ¦ ¦--6.PNG ## 32 ¦ ¦--6b.png ## 33 ¦ ¦--7.PNG ## 34 ¦ ¦--71746538_1513071482177691_7543072537354174464_n.jpg ## 35 ¦ ¦--8.PNG ## 36 ¦ ¦--9.PNG ## 37 ¦ ¦--descarga.png ## 38 ¦ ¦--dir_Travolta.gif ## 39 ¦ ¦--DQugFIWUEAErq0D.jpg ## 40 ¦ ¦--entorno_de_trabajo.PNG ## 41 ¦ ¦--guardar_load_rdata.PNG ## 42 ¦ ¦--guardar_scripts.PNG ## 43 ¦ ¦--Instalacion R- MAC (0).PNG ## 44 ¦ ¦--Instalacion R- Win (0).PNG ## 45 ¦ ¦--Instalacion R- Win (1).PNG ## 46 ¦ ¦--Instalacion R- Win (2).PNG ## 47 ¦ ¦--Instalacion R- Win (3).PNG ## 48 ¦ ¦--Instalacion R- Win (4).PNG ## 49 ¦ ¦--Instalacion R- Win (5).PNG ## 50 ¦ ¦--Instalacion R- Win (6).PNG ## 51 ¦ ¦--Instalacion R- Win (7).PNG ## 52 ¦ ¦--Instalacion R- Win (8).PNG ## 53 ¦ ¦--Instalacion R- Win (9).PNG ## 54 ¦ ¦--Instalacion Rstudio- Win (1).PNG ## 55 ¦ ¦--Instalacion Rstudio- Win (2).PNG ## 56 ¦ ¦--Instalacion Rstudio- Win (3).PNG ## 57 ¦ ¦--Instalacion Rstudio- Win (4).PNG ## 58 ¦ ¦--Instalacion_final.PNG ## 59 ¦ ¦--instalacion_Rstudio1.gif ## 60 ¦ ¦--instalacion_Rstudio1.mov ## 61 ¦ ¦--instalacion_Rstudio2.gif ## 62 ¦ ¦--instalacion_Rstudio2.mov ## 63 ¦ ¦--instalacion_Rstudio3.gif ## 64 ¦ ¦--instalacion_Rstudio3.mov ## 65 ¦ ¦--maduro.jpg ## 66 ¦ ¦--pipe_vs_rest.png ## 67 ¦ ¦--rproj.PNG ## 68 ¦ °--rstudioconf_ohi_hex.jpg ## 69 ¦--_output ## 70 ¦ °--widget.html ## 71 ¦--_style ## 72 ¦ ¦--brandon-grotesque-black-58a8a3e824392.otf ## 73 ¦ ¦--brandon-grotesque-bold-italic-58a8a48221563.otf ## 74 ¦ ¦--brandon-grotesque-light-58a8a4b38001d.otf ## 75 ¦ ¦--brandon-grotesque-light-italic-58a8a4ccb88be.otf ## 76 ¦ ¦--brandon-grotesque-medium-italic-58a8a3c40866a.otf ## 77 ¦ ¦--brandon-grotesque-regular-italic-58a8a456c4724.otf ## 78 ¦ ¦--brandon-grotesque-thin-italic-58a8a3a8861fe.otf ## 79 ¦ ¦--cropped-logotipo_fsch.png ## 80 ¦ ¦--NeutraText-Bold.otf ## 81 ¦ ¦--NeutraText-BoldItalic.otf ## 82 ¦ ¦--NeutraText-Book.otf ## 83 ¦ °--NeutraText-BookItalic.otf ## 84 ¦--Clase-1_cache ## 85 ¦ °--html ## 86 ¦ ¦--__packages ## 87 ¦ ¦--a_8e992a2f6e25fc8efbe5155ffbdff9f1.RData ## 88 ¦ ¦--a_8e992a2f6e25fc8efbe5155ffbdff9f1.rdb ## 89 ¦ ¦--a_8e992a2f6e25fc8efbe5155ffbdff9f1.rdx ## 90 ¦ ¦--b_971312194b957580d91c640c74de43f5.RData ## 91 ¦ ¦--b_971312194b957580d91c640c74de43f5.rdb ## 92 ¦ ¦--b_971312194b957580d91c640c74de43f5.rdx ## 93 ¦ ¦--d_af2441257f4bd295795eff9665d48f75.RData ## 94 ¦ ¦--d_af2441257f4bd295795eff9665d48f75.rdb ## 95 ¦ ¦--d_af2441257f4bd295795eff9665d48f75.rdx ## 96 ¦ ¦--e_20c34d9fb77a8f6abfea8570bd15c02d.RData ## 97 ¦ ¦--e_20c34d9fb77a8f6abfea8570bd15c02d.rdb ## 98 ¦ ¦--e_20c34d9fb77a8f6abfea8570bd15c02d.rdx ## 99 ¦ ¦--Fig-ent_b4731915673ffb67319c1340f542197a.RData ## 100 ¦ °--... 17 nodes w/ 0 sub ## 101 °--... 27 nodes w/ 301 sub ``` ] ??? *#_#_#_#_#_#_#_#_#_#_ **NOTA** *#_#_#_#_#_#_#_#_#_#_ PROYECTOS: - Este es un proyecto que tiene una serie de carpetas, que se conecta a Github (control de versiones), etc. - Esta es la estructura de datos que hay en su interior - Veamos qué contiene: hay un "american-medical-association-10th-edition.csl", para insertar un formato de referencias - Hay múltiples css para dar el estilo y diseño a la presentación y páginas en su interior - Estan los .RMDs y los .HTMLs - Carpetas: data, figs, output, style (ahí deberían ir los .css y todo lo que tiene relación con los temas, pero también van las fuentes de letra, etc.) --- ## Ejercicio 2 - Su jefe le pide que vea los datos guardados en el proyecto de R adjunto en el enlace. - Abra el siguiente [enlace](https://github.com/AGSCL/Taller-UDP-2022/raw/main/_data/ejercicio2.zip) y baje los datos. - Abra el proyecto, el .Rdata pero no el script - Vea las primeras 6 filas del objeto `base_datos` - OPC. Vea las primeras 3 filas - ¿A qué llegó? --- ## Ejercicio: Hágalo usted - Cree un nuevo proyecto en R - Genere la siguiente base de datos recurriendo a este código: `set.seed(6789); df2<- data.frame(numeros=round(rnorm(1:300)*100,0))` - Utilizando `tail(df2)` obtenga las últimas 6 observaciones - Súmelas - ¿Llegó al siguiente número: 12? - OPC1 = obtenga la media de todos los números (use recursos en línea) - OPC2 (+ avanzada)= obtenga el resultado usando comas como separador de decimales ("outdec" en internet) - OPC3 = Obtenga la desviación estándar, separando los decimales con comas - Guarde los datos y el proyecto - Reinicie el computador. Vuelva a abrirlos ??? *#_#_#_#_#_#_#_#_#_#_ **NOTA** *#_#_#_#_#_#_#_#_#_#_ **Ejercicio: Hágalo con su compañere** - En la carpeta `_data`, encontrará 2 ejercicios con nombre: **1a** y **1b**. - Ejecute el .RMD, genere con él un proyecto y - Guarde la .Rdata con nombre 1a o 1b según corresponda (**NADA MÁS**) - Compártalo con un compañere - En aquel proyecto que le compartieron, sólo abra el .RData, despliegue el - resultado alojado en el objeto **"plot"** --- class: center, middle # Gracias! <br> <div class="centered"> Contacto: gonzalez.santacruz.andres@gmail.com </div> <br> <br> <br> <img src="data:image/png;base64,#./_style/cropped-logotipo_fsch.png" width="300" style="display: block; margin: auto;" /> <br> --- ## Fuentes - Boccardo, Giorgio & Ruiz, Felipe. (2018). Uso de RStudio para Estadística Univariada en Ciencias Sociales. Manual de apoyo docente para la asignatura Estadística Descriptiva (1a. Edición). 10.13140/RG.2.2.32783.48803. https://github.com/feliperuizbruzzone/Uso-de-R-para-Estadistica-Social/blob/master/Boccardo%20%26%20Ruiz%20(2018).%20Uso%20de%20RStudio%20para%20Estad%C3%ADstica%20Univariada%20en%20Ciencias%20Sociales%20%5B19%20%20julio%5D.pdf - Cano, E. & Moguerza, J. (2015). “R desde el principio. Curso ceRo de R”. Ediciones del Orto, Madrid. ISBN 84-7923-526-8. http://emilio.lcano.com/pub/cero/R-desde-el-principio-curso-cero-V1.02.pdf - R Development Core Team (2000). Introducción a R. Notas sobre R: Un entorno de programación para Análisis de Datos y Gráficos. Versión 1.0.1 https://cran.r-project.org/doc/contrib/R-intro-1.1.0-espanol.1.pdf - Bryan, J. (2017, Diciembre 12). Project-oriented workflow. https://www.tidyverse.org/blog/2017/12/workflow-vs-script/ - RStudio Support (2022, Octubre 16). Using RStudio Projects. https://support.rstudio.com/hc/en-us/articles/200526207-Using-Projects - Stackoverflow. How do I ask a good question?. https://stackoverflow.com/help/how-to-ask